MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 01 - 1984 & 1985 / 01.10 Sep 84.sit / 01.10 Sep 84 / Fortran Vol. 1 #10 / Random Test.for < prev
MacBinary | 1985-07-06 | 2.6 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Fri Jul 5 23:16:29 1985, modified Fri Jul 5 23:16:29 1985, creator Macintosh Edit, type ASCII, 2015 bytes "Random Test.for" , at 0x85f 490 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 52 61 6e 64 6f 6d | 20 54 65 73 74 2e 66 6f |..Random| Test.fo|
|00000010| 72 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |r.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 07 df 00 | 00 01 ea 99 52 60 0d 99 |........|....R`..|
|00000060| 52 60 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |R`......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 40 37 00 00 |........|....@7..|
|00000080| 2a 20 20 0d 2a 20 20 41 | 20 4d 61 63 46 6f 72 74 |*  .*  A| MacFort|
|00000090| 72 61 6e 20 70 72 6f 67 | 72 61 6d 20 69 6d 70 6c |ran prog|ram impl|
|000000a0| 65 6d 65 6e 74 69 6e 67 | 20 61 20 72 61 6e 64 6f |ementing| a rando|
|000000b0| 6d 20 66 75 6e 63 74 69 | 6f 6e 0d 2a 20 20 61 6e |m functi|on.*  an|
|000000c0| 64 20 64 6f 69 6e 67 20 | 61 20 72 75 64 69 6d 65 |d doing |a rudime|
|000000d0| 6e 74 72 79 20 74 65 73 | 74 20 6f 66 20 69 74 73 |ntry tes|t of its|
|000000e0| 20 70 72 6f 70 65 72 74 | 69 65 73 2e 20 20 54 68 | propert|ies.  Th|
|000000f0| 65 0d 2a 20 20 70 72 6f | 67 72 61 6d 20 75 73 65 |e.*  pro|gram use|
|00000100| 73 20 74 6f 6f 6c 62 78 | 20 63 61 6c 6c 73 20 66 |s toolbx| calls f|
|00000110| 6f 72 20 62 69 74 20 6f | 70 65 72 61 74 6f 72 73 |or bit o|perators|
|00000120| 20 61 6e 64 20 0d 2a 20 | 20 74 69 63 6b 63 6f 75 | and .* | tickcou|
|00000130| 6e 74 2c 20 62 75 74 20 | 64 6f 65 73 20 6e 6f 74 |nt, but |does not|
|00000140| 20 75 73 65 20 74 6f 6f | 6c 62 78 20 66 6f 72 20 | use too|lbx for |
|00000150| 63 75 73 74 6f 6d 20 6d | 65 6e 75 73 0d 2a 20 20 |custom m|enus.*  |
|00000160| 6f 72 20 77 69 6e 64 6f | 77 73 2e 0d 2a 0d 2a 20 |or windo|ws..*.* |
|00000170| 20 4d 61 72 6b 20 45 2e | 20 4d 63 42 72 69 64 65 | Mark E.| McBride|
|00000180| 0d 2a 20 20 32 31 31 20 | 4e 2e 20 55 6e 69 76 65 |.*  211 |N. Unive|
|00000190| 72 73 69 74 79 0d 2a 20 | 20 4f 78 66 6f 72 64 2c |rsity.* | Oxford,|
|000001a0| 20 4f 48 20 20 34 35 30 | 35 36 0d 2a 20 20 28 35 | OH  450|56.*  (5|
|000001b0| 31 33 29 20 35 32 33 2d | 31 34 33 38 0d 2a 20 20 |13) 523-|1438.*  |
|000001c0| 4a 75 6c 79 20 31 2c 20 | 31 39 38 35 0d 2a 0d 20 |July 1, |1985.*. |
|000001d0| 20 20 20 20 20 50 52 4f | 47 52 41 4d 20 54 65 73 |     PRO|GRAM Tes|
|000001e0| 74 72 61 6e 64 6f 6d 0d | 2a 0d 2a 20 20 44 65 63 |trandom.|*.*  Dec|
|000001f0| 6c 61 72 61 74 69 6f 6e | 73 0d 2a 0d 20 20 20 20 |laration|s.*.    |
|00000200| 20 20 49 6e 74 65 67 65 | 72 2a 34 20 59 2c 54 69 |  Intege|r*4 Y,Ti|
|00000210| 63 6b 31 2c 54 69 63 6b | 32 0d 20 20 20 20 20 20 |ck1,Tick|2.      |
|00000220| 49 6e 74 65 67 65 72 2a | 34 20 74 6f 6f 6c 62 78 |Integer*|4 toolbx|
|00000230| 2c 54 49 43 4b 43 4f 55 | 4e 54 20 20 20 20 21 20 |,TICKCOU|NT    ! |
|00000240| 74 6f 6f 6c 62 6f 78 20 | 76 61 72 69 61 62 6c 65 |toolbox |variable|
|00000250| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 0d 20 20 20 | definit|ions.   |
|00000260| 20 20 20 50 41 52 41 4d | 45 54 45 52 20 28 54 49 |   PARAM|ETER (TI|
|00000270| 43 4b 43 4f 55 4e 54 3d | 33 36 32 29 0d 20 20 20 |CKCOUNT=|362).   |
|00000280| 20 20 20 49 6e 74 65 67 | 65 72 2a 34 20 41 28 31 |   Integ|er*4 A(1|
|00000290| 30 30 31 2c 36 29 0d 2a | 0d 2a 20 20 20 20 20 50 |001,6).*|.*     P|
|000002a0| 52 4f 47 52 41 4d 20 53 | 54 41 52 54 53 20 48 45 |ROGRAM S|TARTS HE|
|000002b0| 52 45 0d 2a 0d 20 20 20 | 20 20 20 59 3d 52 61 6e |RE.*.   |   Y=Ran|
|000002c0| 64 28 30 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |d(0)    |        |
|000002d0| 20 20 20 20 20 20 20 20 | 20 21 20 53 65 65 64 20 |        | ! Seed |
|000002e0| 74 68 65 20 72 61 6e 64 | 6f 6d 20 6e 75 6d 62 65 |the rand|om numbe|
|000002f0| 72 20 67 65 6e 65 72 61 | 74 6f 72 0d 2a 0d 2a 20 |r genera|tor.*.* |
|00000300| 20 49 6e 69 74 69 6c 69 | 7a 65 20 61 72 72 61 79 | Initili|ze array|
|00000310| 2c 20 20 4d 61 63 46 6f | 72 74 72 61 6e 20 77 69 |,  MacFo|rtran wi|
|00000320| 6c 6c 20 6e 6f 74 20 69 | 6e 69 74 69 61 6c 69 7a |ll not i|nitializ|
|00000330| 65 20 66 6f 72 20 79 6f | 75 0d 2a 0d 20 20 20 20 |e for yo|u.*.    |
|00000340| 20 20 44 4f 20 35 30 30 | 20 49 3d 31 2c 31 30 30 |  DO 500| I=1,100|
|00000350| 31 0d 20 20 20 20 20 20 | 44 4f 20 35 30 30 20 4a |1.      |DO 500 J|
|00000360| 3d 31 2c 36 0d 20 35 30 | 30 20 20 41 28 49 2c 4a |=1,6. 50|0  A(I,J|
|00000370| 29 3d 30 0d 2a 0d 2a 20 | 20 47 65 74 20 61 20 73 |)=0.*.* | Get a s|
|00000380| 79 73 74 65 6d 20 74 69 | 63 6b 20 63 6f 75 6e 74 |ystem ti|ck count|
|00000390| 20 75 73 69 6e 67 20 74 | 68 65 20 74 6f 6f 6c 62 | using t|he toolb|
|000003a0| 6f 78 20 72 6f 75 74 69 | 6e 65 0d 2a 0d 20 20 20 |ox routi|ne.*.   |
|000003b0| 20 20 20 54 69 63 6b 31 | 3d 74 6f 6f 6c 62 78 28 |   Tick1|=toolbx(|
|000003c0| 54 49 43 4b 43 4f 55 4e | 54 29 20 20 20 20 20 20 |TICKCOUN|T)      |
|000003d0| 20 0d 20 20 20 20 20 20 | 77 72 69 74 65 28 39 2c | .      |write(9,|
|000003e0| 2a 29 20 27 20 53 79 73 | 74 65 6d 20 74 69 63 6b |*) ' Sys|tem tick|
|000003f0| 20 63 6f 75 6e 74 20 61 | 74 20 73 74 61 72 74 20 | count a|t start |
|00000400| 69 73 20 27 2c 54 69 63 | 6b 31 0d 20 20 20 20 20 |is ',Tic|k1.     |
|00000410| 20 77 72 69 74 65 28 39 | 2c 2a 29 0d 2a 0d 2a 20 | write(9|,*).*.* |
|00000420| 20 44 6f 20 6f 6e 65 20 | 74 68 6f 75 73 61 6e 64 | Do one |thousand|
|00000430| 20 74 72 69 61 6c 73 20 | 65 61 63 68 20 6f 66 20 | trials |each of |
|00000440| 73 61 6d 70 6c 65 20 73 | 69 7a 65 20 36 30 0d 2a |sample s|ize 60.*|
|00000450| 0d 20 20 20 20 20 20 44 | 4f 20 31 30 30 30 20 49 |.      D|O 1000 I|
|00000460| 3d 31 2c 31 30 30 30 0d | 20 20 20 20 20 20 44 4f |=1,1000.|      DO|
|00000470| 20 31 30 30 30 20 4a 3d | 31 2c 36 30 0d 20 20 20 | 1000 J=|1,60.   |
|00000480| 20 20 20 59 3d 69 6e 74 | 28 52 61 6e 64 28 31 29 |   Y=int|(Rand(1)|
|00000490| 2a 36 2b 31 29 0d 31 30 | 30 30 20 20 41 28 49 2c |*6+1).10|00  A(I,|
|000004a0| 59 29 3d 41 28 49 2c 59 | 29 2b 31 0d 2a 0d 2a 20 |Y)=A(I,Y|)+1.*.* |
|000004b0| 20 47 65 74 20 61 20 73 | 65 63 6f 6e 64 20 73 79 | Get a s|econd sy|
|000004c0| 73 74 65 6d 20 74 69 63 | 6b 20 63 6f 75 6e 74 0d |stem tic|k count.|
|000004d0| 2a 0d 20 20 20 20 20 20 | 54 69 63 6b 32 3d 74 6f |*.      |Tick2=to|
|000004e0| 6f 6c 62 78 28 54 49 43 | 4b 43 4f 55 4e 54 29 0d |olbx(TIC|KCOUNT).|
|000004f0| 2a 0d 2a 20 20 43 61 6c | 63 75 6c 61 74 65 20 74 |*.*  Cal|culate t|
|00000500| 6f 74 61 6c 20 6e 75 6d | 62 65 72 20 6f 66 20 72 |otal num|ber of r|
|00000510| 65 73 70 6f 6e 73 65 73 | 20 66 6f 72 20 65 61 63 |esponses| for eac|
|00000520| 68 20 76 61 6c 75 65 0d | 2a 0d 20 20 20 20 20 20 |h value.|*.      |
|00000530| 44 4f 20 31 35 30 30 20 | 49 3d 31 2c 31 30 30 30 |DO 1500 |I=1,1000|
|00000540| 0d 20 20 20 20 20 20 44 | 4f 20 31 35 30 30 20 4a |.      D|O 1500 J|
|00000550| 3d 31 2c 36 0d 31 35 30 | 30 20 20 41 28 31 30 30 |=1,6.150|0  A(100|
|00000560| 31 2c 4a 29 3d 41 28 31 | 30 30 31 2c 4a 29 2b 41 |1,J)=A(1|001,J)+A|
|00000570| 28 49 2c 4a 29 0d 2a 0d | 2a 20 20 57 72 69 74 65 |(I,J).*.|*  Write|
|00000580| 20 6f 75 74 20 72 65 73 | 75 6c 74 73 20 74 6f 20 | out res|ults to |
|00000590| 4d 61 63 46 6f 72 74 72 | 61 6e 20 67 65 6e 65 72 |MacFortr|an gener|
|000005a0| 61 74 65 64 20 6f 75 74 | 70 75 74 20 77 69 6e 64 |ated out|put wind|
|000005b0| 6f 77 0d 2a 0d 20 20 20 | 20 20 20 57 72 69 74 65 |ow.*.   |   Write|
|000005c0| 28 39 2c 2a 29 27 20 54 | 68 65 20 61 76 65 72 61 |(9,*)' T|he avera|
|000005d0| 67 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 72 65 73 |ge numbe|r of res|
|000005e0| 70 6f 6e 73 65 73 20 69 | 6e 20 73 61 6d 70 6c 65 |ponses i|n sample|
|000005f0| 20 6f 66 20 73 69 7a 65 | 20 36 30 0d 20 20 20 20 | of size| 60.    |
|00000600| 20 2b 20 61 66 74 65 72 | 20 31 30 30 30 20 74 72 | + after| 1000 tr|
|00000610| 69 61 6c 73 20 69 73 27 | 0d 20 20 20 20 20 20 57 |ials is'|.      W|
|00000620| 72 69 74 65 28 39 2c 2a | 29 0d 20 20 20 20 20 20 |rite(9,*|).      |
|00000630| 44 4f 20 32 35 30 30 20 | 4a 3d 31 2c 36 0d 32 35 |DO 2500 |J=1,6.25|
|00000640| 30 30 20 20 57 72 69 74 | 65 28 39 2c 31 30 31 29 |00  Writ|e(9,101)|
|00000650| 20 4a 2c 66 6c 6f 61 74 | 28 41 28 31 30 30 31 2c | J,float|(A(1001,|
|00000660| 4a 29 29 2f 31 30 30 30 | 20 20 20 21 20 77 72 69 |J))/1000|   ! wri|
|00000670| 74 65 20 6f 75 74 20 61 | 76 65 72 61 67 65 20 72 |te out a|verage r|
|00000680| 65 73 70 6f 6e 73 65 20 | 72 61 74 65 0d 20 31 30 |esponse |rate. 10|
|00000690| 31 20 20 46 6f 72 6d 61 | 74 28 2f 31 78 2c 27 20 |1  Forma|t(/1x,' |
|000006a0| 46 6f 72 20 64 69 65 20 | 76 61 6c 75 65 20 27 2c |For die |value ',|
|000006b0| 49 32 2c 27 20 74 68 65 | 20 61 76 65 72 61 67 65 |I2,' the| average|
|000006c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 0d 20 20 20 20 | number |of .    |
|000006d0| 20 2b 20 72 65 73 70 6f | 6e 73 65 73 20 77 61 73 | + respo|nses was|
|000006e0| 20 27 2c 66 38 2e 35 29 | 0d 20 20 20 20 20 20 77 | ',f8.5)|.      w|
|000006f0| 72 69 74 65 28 39 2c 2a | 29 0d 20 20 20 20 20 20 |rite(9,*|).      |
|00000700| 77 72 69 74 65 28 39 2c | 2a 29 20 27 20 53 79 73 |write(9,|*) ' Sys|
|00000710| 74 65 6d 20 74 69 63 6b | 63 6f 75 6e 74 20 61 74 |tem tick|count at|
|00000720| 20 65 6e 64 20 69 73 20 | 27 2c 54 69 63 6b 32 0d | end is |',Tick2.|
|00000730| 20 20 20 20 20 20 77 72 | 69 74 65 28 39 2c 2a 29 |      wr|ite(9,*)|
|00000740| 0d 20 20 20 20 20 20 77 | 72 69 74 65 28 39 2c 2a |.      w|rite(9,*|
|00000750| 29 20 27 20 54 68 65 20 | 73 61 6d 70 6c 69 6e 67 |) ' The |sampling|
|00000760| 20 74 6f 6f 6b 20 27 2c | 66 6c 6f 61 74 28 28 54 | took ',|float((T|
|00000770| 69 63 6b 32 2d 54 69 63 | 6b 31 29 2f 36 30 29 2c |ick2-Tic|k1)/60),|
|00000780| 0d 20 20 20 20 20 2b 27 | 20 73 65 63 6f 6e 64 73 |.     +'| seconds|
|00000790| 27 0d 20 20 20 20 20 20 | 77 72 69 74 65 28 39 2c |'.      |write(9,|
|000007a0| 2a 29 0d 20 20 20 20 20 | 20 50 41 55 53 45 20 27 |*).     | PAUSE '|
|000007b0| 50 72 65 73 73 20 52 65 | 74 75 72 6e 20 74 6f 20 |Press Re|turn to |
|000007c0| 71 75 69 74 27 20 20 20 | 20 20 20 20 20 20 20 20 |quit'   |        |
|000007d0| 21 20 68 6f 6c 64 20 74 | 68 65 20 73 63 72 65 65 |! hold t|he scree|
|000007e0| 6e 0d 20 20 20 20 20 20 | 53 54 4f 50 0d 20 20 20 |n.      |STOP.   |
|000007f0| 20 20 20 45 4e 44 0d 2a | 0d 2a 20 20 49 6e 63 6c |   END.*|.*  Incl|
|00000800| 75 64 65 20 74 68 65 20 | 63 6f 64 65 20 66 6f 72 |ude the |code for|
|00000810| 20 74 68 65 20 72 61 6e | 64 6f 6d 20 6e 75 6d 62 | the ran|dom numb|
|00000820| 65 72 20 67 65 6e 65 72 | 61 74 6f 72 0d 2a 0d 20 |er gener|ator.*. |
|00000830| 20 20 20 20 20 69 6e 63 | 6c 75 64 65 20 52 61 6e |     inc|lude Ran|
|00000840| 64 2e 66 6f 72 0d 2a 0d | 2a 20 20 65 6e 64 20 6f |d.for.*.|*  end o|
|00000850| 66 20 73 6f 75 72 63 65 | 20 63 6f 64 65 0d 2a 00 |f source| code.*.|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00000890| 4e d3 0f 00 00 00 5c 00 | 00 00 00 c0 4e d3 0f 30 |N.....\.|....N..0|
|000008a0| 26 00 2f 20 57 45 4c 43 | 4f 4d 45 20 54 4f 20 46 |&./ WELC|OME TO F|
|000008b0| 0f 52 61 6e 64 6f 6d 20 | 54 65 73 74 2e 66 6f 72 |.Random |Test.for|
|000008c0| 02 00 00 00 54 45 58 54 | 45 44 49 54 01 00 00 00 |....TEXT|EDIT....|
|000008d0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 80 |..TEXTED|IT......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 99 05 8a a8 00 00 | 07 df 00 00 01 ea 00 5f |........|......._|
|00000900| 00 00 00 00 00 00 00 00 | 13 04 00 01 22 5a 09 04 |........|...."Z..|
|00000910| 00 01 21 d4 13 04 00 01 | 22 5a 09 04 00 01 21 b2 |..!.....|"Z....!.|
|00000920| 14 03 00 01 04 3a 76 5d | c0 00 00 00 00 60 00 00 |.....:v]|.....`..|
|00000930| 00 00 00 00 00 00 20 1a | 04 09 01 c0 4e f2 4f 00 |...... .|....N.O.|
|00000940| 00 00 61 00 00 00 00 c0 | 4e f2 4f 30 26 00 2a 20 |..a.....|N.O0&.* |
|00000950| 54 59 50 45 20 22 53 54 | 4f 50 22 20 41 54 20 41 |TYPE "ST|OP" AT A|
|00000960| 4e 59 20 50 4f 49 4e 54 | 20 54 4f 20 45 4e 44 20 |NY POINT| TO END |
|00000970| 54 48 45 20 47 41 4d 45 | 2e 00 00 63 00 00 00 00 |THE GAME|...c....|
|00000980| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 70 00 00 |.......M|onacop..|
|00000990| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000009a0| 00 16 00 00 00 d4 00 00 | 4e 1c 00 7a 00 00 00 1c |........|N..z....|
|000009b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000009c0| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 00 eb fc |........|........|
|000009d0| 03 ec 00 47 00 00 00 0e | 00 00 eb f8 46 4f 42 4a |...G....|....FOBJ|
|000009e0| ff ff ff ff 00 40 01 aa | 00 40 01 ac 00 40 01 ae |.....@..|.@...@..|
|000009f0| 00 40 01 b0 00 40 01 b2 | 00 40 01 b4 00 40 01 b6 |.@...@..|.@...@..|
|00000a00| 00 40 01 b8 00 40 10 18 | 00 40 01 bc 00 40 01 be |.@...@..|.@...@..|
|00000a10| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00000a20| 00 40 01 46 4f 42 4a ff | ff ff ff 00 40 01 aa 00 |.@.FOBJ.|....@...|
|00000a30| 40 01 ac 00 40 01 ae 00 | 40 01 b0 00 40 01 b2 00 |@...@...|@...@...|
|00000a40| 40 01 b4 00 40 01 b6 00 | 40 01 b8 00 40 10 18 00 |@...@...|@...@...|
|00000a50| 40 01 bc 00 40 01 be 00 | 40 01 be 00 40 01 be 00 |@...@...|@...@...|
|00000a60| 40 01 be 00 40 01 be 00 | 40 01 00 00 00 00 00 00 |@...@...|@.......|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+